home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / IIC.PLUS.TOUR / MONTAGE (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1988-04-09  |  1.6 KB  |  76 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10  REM  ----- Photo Montage -----
  2. 12  ONERR  GOTO 5000
  3. 15 CP = 0: IF  PEEK(64435) = 6  AND  PEEK(64448) = 0  AND  PEEK(64447) = 5  THEN CP = 1
  4. 20 CC$ =  CHR$(4)
  5. 21  PRINT CC$;"pr#3"
  6. 22 FP = 106 *256
  7. 23  PRINT CC$;"BLOAD EFFECTS"
  8. 26  IF CP = 1  THEN  CALL FP +5
  9. 28  IF CP < >1  THEN  CALL FP +8
  10. 30  GOSUB 4000
  11. 32  HGR 
  12. 34  HOME 
  13. 36  GOSUB 3000
  14. 38  FOR PP = 0 TO 6
  15. 40  GOSUB 1000: GOSUB 2000: GOSUB 1000
  16. 42  REM  -IF PP <  > 6 THEN  FOR I = 1 TO 500: NEXT I 
  17. 44  NEXT PP
  18. 50 TI$ = "title.gph": IF CP = 1  THEN TI$ = "titleiic.gph"
  19. 60  PRINT CC$;"bload ";TI$
  20. 70 X =  PEEK(16384): POKE FP, INT((39 -X)/2)
  21. 75 X =  PEEK(16385): POKE FP +1, INT((191 -X)/2): GOSUB 2050
  22. 200 I = 200: GOSUB 2500
  23. 205  POKE  -16372,0: HGR : POKE  -16302,0: PRINT  CHR$(4);"BLOAD KEYBOARD.PIC"
  24. 210 I = 1300: GOSUB 2500
  25. 240  GOTO 36
  26. 1000  REM  -- LOAD IMAGE ---
  27. 1005 YP = PA(PP)
  28. 1010  POKE FP,IZ(YP): POKE FP +1,IL(YP): CALL FP +2
  29. 1020  RETURN 
  30. 2000  REM  --- Show picture ---
  31. 2010 X =  PEEK(16384)
  32. 2020  POKE FP, INT((39 -X) * RND(1))
  33. 2030 X =  PEEK(16385)
  34. 2040  POKE FP +1, INT((191 -X) * RND(1))
  35. 2050  CALL FP +5
  36. 2051 I = 5: GOSUB 2500
  37. 2052  IF PX = 8  THEN I = 500: GOSUB 2500
  38. 2060  RETURN 
  39. 2100  POKE 49247,0: POKE 49279,0: POKE 49237,0: POKE 49236,0
  40. 2102  POKE 49164,0: HOME 
  41. 2105  TEXT : PRINT CC$;"PREFIX /TUTOR/MENU"
  42. 2110  PRINT CC$;"-/TUTOR/BASIC.SYSTEM"
  43. 2500 A =  PEEK( -16384): IF A >127  THEN 2530
  44. 2510 I = I -1: IF I  THEN 2500
  45. 2520  RETURN 
  46. 2530  POKE  -16368,0: POP : GOTO 2100
  47. 3000  REM --- order pics -----
  48. 3010  FOR I = 0 TO 7:PA(I) = I +1: NEXT I
  49. 3015  FOR I = 0 TO 6
  50. 3020 J =  INT( RND(1) *(7 -I)) +I
  51. 3030 K = PA(I):PA(I) = PA(J):PA(J) = K
  52. 3040  NEXT I
  53. 3050  RETURN 
  54. 4000  REM  ---- STORE PIXES -----
  55. 4010  HOME : FOR I = 1 TO 11: PRINT : NEXT 
  56. 4015  HTAB 33: PRINT "Please wait..."
  57. 4020 BB = 64:XP = 4 *4096
  58. 4030  FOR I = 1 TO 7
  59. 4040  ON I GOTO 4100,4110,4120,4130,4140,4150,4160,4170
  60. 4100 TI$ = "CARDS": GOTO 4200
  61. 4110 TI$ = "MUSIC1": GOTO 4200
  62. 4120 TI$ = "FOLDER": GOTO 4200
  63. 4130 TI$ = "CHART1": GOTO 4200
  64. 4140 TI$ = "CHART2": GOTO 4200
  65. 4150 TI$ = "J01": GOTO 4200
  66. 4160 TI$ = "BRUSH": GOTO 4200
  67. 4170  IF CP = 1  THEN TI$ = "TITLEIIC"
  68. 4175  IF CP < >1  THEN TI$ = "TITLE"
  69. 4200  PRINT CC$;"BLOAD ";TI$;".GPH"
  70. 4210 PG = 257 +((( PEEK(XP) +1) *2) *(1 + PEEK(XP +1))):PG =  INT(PG/256)
  71. 4220  POKE FP,PG: POKE FP +1,BB
  72. 4230 IZ(I) = PG:IL(I) = BB:BB = BB +PG
  73. 4240  CALL FP +2
  74. 4250  NEXT I
  75. 4260  RETURN 
  76. 5000  RESUME